home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 05 / 6 / DISK0564.ZIP / SOURCE.ARC / ASM.ARC / UNLINK2.ASM < prev    next >
Assembly Source File  |  1987-11-01  |  634b  |  33 lines
  1.     INCLUDE    MSDOS2.DEF
  2.  
  3.     DOSSEG
  4.     .MODEL    SMALL
  5.     .CODE
  6.     PUBLIC    UNLINK2
  7.  
  8. ;    UNLINK2 = DELETE FILE EVEN IF WRITE-PROTECTED
  9. ;    ENTRY:    DS:DX POINTS TO FILE NAME
  10. ;    EXIT:    'C'=1 IF ERROR
  11. ;
  12. UNLINK2 PROC    NEAR
  13.     PUSH    DX
  14.     MOV    AH,UNLINK
  15.     INT    DOS            ;TRY TO DELETE FILE
  16.     POP    DX
  17.     JNB    UNLEND            ;IF OK
  18.         MOV     AL,1                    ;PREPARE TO CHANGE ATTRIBUTES
  19.         MOV     CX,0                    ;NEW ATTRIBUTES = 0
  20.         MOV     AH,CHMOD
  21.     PUSH    DX
  22.         INT     DOS                     ;MAKE FILE R/W
  23.     POP    DX
  24.     JB    UNLEND
  25.     MOV    AH,UNLINK
  26.     INT    DOS            ;NOW TRY TO REMOVE IT AGAIN
  27. UNLEND: RET
  28. UNLINK2    ENDP
  29.  
  30.     END
  31.  
  32.  
  33.